home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_gen / ada_tutr.zip / TRITYPE.ANS (.png) < prev    next >
ANSI Art File  |  1994-08-22  |  522b  |  640x256  |  1-bit (2 colors)
Labels: text | screenshot | font
OCR: Our solution to Outside Assignment 2: separate (Tritest) function Tritype(Len1, Len2, Len3 : in Integer) return Triangle is Answer : Triangle; begin if Len1 + Len2 <= Len3 or Len1 + Len3 <= Len2 or Len2 + Len3 <= Len1 then Answer := Not_a_Triangle; elsif Len1 = Len2 and Len2 = Len3 then Answer := Equilateral; elsif Len1 = Len2 or Len2 = Len3 or Len1 = Len3 then Answer := Isosceles; else Answer := Scalene; end if ; return Answer; end Tritype;